home *** CD-ROM | disk | FTP | other *** search
/ Aminet 15 / Aminet 15 - Nov 1996.iso / Aminet / util / cli / DoVer.lha / DoVer / src / DosSupport.mod next >
Text File  |  1996-06-26  |  664b  |  36 lines
  1. MODULE DosSupport;
  2.  
  3. IMPORT
  4.   d := Dos,
  5.   e := Exec,
  6.   Y := SYSTEM;
  7.  
  8. (* Print out a dos.library error-message *)
  9. PROCEDURE PrintFault * ;
  10. BEGIN
  11.   Y.SETREG(0,d.PrintFault(d.IoErr(),NIL));
  12. END PrintFault;
  13.  
  14. (* Print out dos.library error-message "Not enough free store" *)
  15. PROCEDURE PrintMemErr * ;
  16. BEGIN
  17.   Y.SETREG(0,d.PrintFault(d.noFreeStore,NIL));
  18. END PrintMemErr;
  19.  
  20.  
  21. (* Check if Ctrl-C was pressed *)
  22. PROCEDURE CheckCtrlC* ():BOOLEAN;
  23. BEGIN
  24.   IF d.ctrlC IN d.CheckSignal(LONGSET{d.ctrlC}) THEN
  25.     d.PrintF("*** Break ***\n");
  26.     RETURN TRUE;
  27.   ELSE
  28.     RETURN FALSE;
  29.   END
  30. END CheckCtrlC;
  31.  
  32.  
  33. BEGIN
  34.   IF d.base.lib.version < 36 THEN HALT(20); END;
  35. END DosSupport.
  36.